home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / music / sfx-data.lha / sfx-data / Install-SFXdata next >
Text File  |  1996-01-09  |  5KB  |  159 lines
  1. ; Install-SFXdata Start -------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFXdata (02.12.1995)
  4. ;
  5. ; SoundFX data  Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of data for SoundFX !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were the data for SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
  19.     (SET #copy-fonts        "copying fonts ...")
  20.     (SET #copy-libs            "copying librarys ...")
  21.     (SET #copy-synths        "copying synths ...")
  22.     (SET #copy-eqshapes        "copying eq-shapes ...")
  23.     (SET #copy-envelopes    "copying envelopes ...")
  24.     (SET #copy-workshop        "copying workshopfiles ...")
  25.     (SET #copy-help            "The respective files will copied to your HD.")
  26.     (SET #exit-messy        "\n\nSFXdata is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  27. ))
  28. (IF (= @LANGUAGE "deutsch")
  29. (
  30.     (SET #bad-kick            "SoundFX benötigt mindestens Kickstart 2.04 !")
  31.     (SET #welcome-messy        "\n\nWillkommen zur Installation der Daten für SoundFX !")
  32.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  33.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie die Daten für das Programm installeren möchten")
  34.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
  35.     (SET #copy-fonts        "kopiere Fonts ...")
  36.     (SET #copy-libs            "kopiere Librarys ...")
  37.     (SET #copy-synths        "kopiere Synths ...")
  38.     (SET #copy-eqshapes        "kopiere EQ-Shapes ...")
  39.     (SET #copy-envelopes    "kopiere Envelopes ...")
  40.     (SET #copy-workshop        "kopiere Workshopdateien ...")
  41.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  42.     (SET #exit-messy        "\n\nSFXdata konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  43. ))
  44.  
  45. ; check kick version ----------------------------------------------------------------------------------------
  46.  
  47. (if (< (/ (getversion) 65536) 37)
  48.     (abort #bad-kick)
  49. )
  50.  
  51. ; los geht`s ------------------------------------------------------------------------------------------------
  52.  
  53. (COMPLETE 0)
  54. (MESSAGE #welcome-messy)
  55.  
  56. (SET @default-dest
  57.     (ASKDIR
  58.         (PROMPT #choose-dest)
  59.         (HELP #choose-dest-help)
  60.         (DEFAULT @default-dest)
  61.     )
  62. )
  63. (MESSAGE #dest-require)
  64.  
  65. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  66. (COMPLETE 5)
  67. (SET @default-dest (TACKON @default-dest "SFX"))
  68. (SET sfx-dest @default-dest)
  69. (IF (= (EXISTS sfx-dest) 0)
  70.     (MAKEDIR sfx-dest (INFOS))
  71. )
  72.  
  73. ; Fonts kopieren --------------------------------------------------------------------------------------------
  74. (COMPLETE 10)
  75. (COPYFILES
  76.     (PROMPT #copy-fonts)
  77.     (HELP #copy-help)
  78.     (SOURCE "Fonts/")
  79.     (DEST "FONTS:")
  80.     (ALL)
  81. )
  82.  
  83. ; Libs kopieren ---------------------------------------------------------------------------------------------
  84. (COMPLETE 15)
  85. (COPYLIB
  86.     (PROMPT #copy-libs)
  87.     (HELP #copy-help)
  88.     (SOURCE "Libs/amigaguide.library")
  89.     (DEST "LIBS:")
  90. )
  91.  
  92. ; Synths ----------------------------------------------------------------------------------------------------
  93. (COMPLETE 20)
  94. (SET sfxsub-dest (TACKON sfx-dest "Synths"))
  95. (IF (= (EXISTS sfxsub-dest) 0)
  96.     (MAKEDIR sfxsub-dest (INFOS))
  97. )
  98. (COMPLETE 22)
  99. (COPYFILES
  100.     (PROMPT #copy-synths)
  101.     (HELP #copy-help)
  102.     (SOURCE "Synths/")
  103.     (DEST sfxsub-dest)
  104.     (ALL)
  105. )
  106.  
  107. ; Eqshapes --------------------------------------------------------------------------------------------------
  108. (COMPLETE 35)
  109. (SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
  110. (IF (= (EXISTS sfxsub-dest) 0)
  111.     (MAKEDIR sfxsub-dest (INFOS))
  112. )
  113. (COMPLETE 37)
  114. (COPYFILES
  115.     (PROMPT #copy-eqshapes)
  116.     (HELP #copy-help)
  117.     (SOURCE "Eqshps/")
  118.     (DEST sfxsub-dest)
  119.     (ALL)
  120. )
  121.  
  122. ; Envelopes -------------------------------------------------------------------------------------------------
  123. (COMPLETE 50)
  124. (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
  125. (IF (= (EXISTS sfxsub-dest) 0)
  126.     (MAKEDIR sfxsub-dest (INFOS))
  127. )
  128. (COMPLETE 52)
  129. (COPYFILES
  130.     (PROMPT #copy-envelopes)
  131.     (HELP #copy-help)
  132.     (SOURCE "Envelopes/")
  133.     (DEST sfxsub-dest)
  134.     (ALL)
  135. )
  136.  
  137. ; Workshop-Scripte ------------------------------------------------------------------------------------------
  138. (COMPLETE 70)
  139. (SET sfxsub-dest (TACKON sfx-dest "Workshop"))
  140. (IF (= (EXISTS sfxsub-dest) 0)
  141.     (MAKEDIR sfxsub-dest (INFOS))
  142. )
  143. (COMPLETE 72)
  144. (COPYFILES
  145.     (PROMPT #copy-workshop)
  146.     (HELP #copy-help)
  147.     (SOURCE "Workshop/")
  148.     (DEST sfxsub-dest)
  149.     (ALL)
  150. )
  151.  
  152. ; Fertig ----------------------------------------------------------------------------------------------------
  153. (COMPLETE 99)
  154. (MESSAGE #exit-messy)
  155. (COMPLETE 100)
  156.  
  157. (EXIT (QUIET))
  158. ; Install-SFXdata Ende --------------------------------------------------------------------------------------
  159.